home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / distortfx / bevelglass < prev    next >
Text File  |  1999-06-15  |  2KB  |  76 lines
  1. Filter Factory Plugin Information:
  2.  
  3. FILENAME: CPKBEVEL.8BF
  4.  
  5. CATEGORY: 
  6. CPK Designs
  7.  
  8. TITLE:    
  9. cpkbevel
  10.  
  11. COPYRIGHT:
  12. Copyright ) 1996 CPK Designs, Inc.
  13. All Rights Reserved.
  14.  
  15. AUTHOR:   
  16. CPK
  17.  
  18. Map 0: [Map 0:]
  19. Map 1: [Map 1:]
  20. Map 2: [Map 2:]
  21. Map 3: [Map 3:]
  22.  
  23. Control 0: [Bevel Width]
  24. Control 1: [ X-light]
  25. Control 2: [Y-light]
  26. Control 3: [Control 3:]
  27. Control 4: [Control 4:]
  28. Control 5: [Control 5:]
  29. Control 6: [Control 6:]
  30. Control 7: [Control 7:]
  31.  
  32. R=
  33. put(val(0,0,min(X,Y)/2),0),put(scl(c,0,255,abs(val(1,-255,255)),255), 1), 
  34. put(scl(c,0,255,0,255-abs(val(1,-255,255))), 2), 
  35. put(scl(c,0,255,abs(val(2,-255,255)),255), 3), 
  36. put(scl(c,0,255,0,255-abs(val(2,-255,255))), 4),
  37. (x<get(0)&&x<=y&&x<=(Y-y) ? get(1)*(ctl(1)<128)+get(2)*(ctl(1)>=128) 
  38. :(y<get(0)&&x>=y&&(X-x)>=y ? get(3)*(ctl(2)<128)+get(4)*(ctl(2)>=128) 
  39. :(x>X-get(0)&&(X-x)<=y&&(Y-y)>=(X-x) ? 
  40. get(1)*(ctl(1)>=128)+get(2)*(ctl(1)<128) 
  41. :(y>Y-get(0)&&x>=(Y-y)&&(Y-y)<=(X-x) ? 
  42. get(3)*(ctl(2)>=128)+get(4)*(ctl(2)<128) : c))))
  43.  
  44.  
  45. G=
  46. put(scl(c,0,255,abs(val(1,-255,255)),255), 1), 
  47. put(scl(c,0,255,0,255-abs(val(1,-255,255))), 2), 
  48. put(scl(c,0,255,abs(val(2,-255,255)),255), 3), 
  49. put(scl(c,0,255,0,255-abs(val(2,-255,255))), 4), (x<get(0)&&x<=y&&x<=(Y-y) 
  50. ? get(1)*(ctl(1)<128)+get(2)*(ctl(1)>=128) :(y<get(0)&&x>=y&&(X-x)>=y ? 
  51. get(3)*(ctl(2)<128)+get(4)*(ctl(2)>=128) :
  52. (x>X-get(0)&&(X-x)<=y&&(Y-y)>=(X-x) ? 
  53. get(1)*(ctl(1)>=128)+get(2)*(ctl(1)<128) :
  54. (y>Y-get(0)&&x>=(Y-y)&&(Y-y)<=(X-x) ? 
  55. get(3)*(ctl(2)>=128)+get(4)*(ctl(2)<128) : c))))
  56.  
  57.  
  58.  
  59. B=
  60. put(scl(c,0,255,abs(val(1,-255,255)),255), 1), 
  61. put(scl(c,0,255,0,255-abs(val(1,-255,255))), 2), 
  62. put(scl(c,0,255,abs(val(2,-255,255)),255), 3), 
  63. put(scl(c,0,255,0,255-abs(val(2,-255,255))), 4), (x<get(0)&&x<=y&&x<=(Y-y) 
  64. ? get(1)*(ctl(1)<128)+get(2)*(ctl(1)>=128) : (y<get(0)&&x>=y&&(X-x)>=y ? 
  65. get(3)*(ctl(2)<128)+get(4)*(ctl(2)>=128) :
  66. (x>X-get(0)&&(X-x)<=y&&(Y-y)>=(X-x) ? 
  67. get(1)*(ctl(1)>=128)+get(2)*(ctl(1)<128) :
  68. (y>Y-get(0)&&x>=(Y-y)&&(Y-y)<=(X-x) ? 
  69. get(3)*(ctl(2)>=128)+get(4)*(ctl(2)<128) : c))))
  70.  
  71.  
  72.  
  73. A=
  74. a
  75.  
  76.